home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Organization / HyperCheck / card_7429.txt < prev    next >
Text File  |  1988-05-17  |  12KB  |  572 lines
  1. -- card: 7429 from stack: in
  2. -- bmap block id: 8064
  3. -- flags: 4000
  4. -- background id: 2713
  5. -- name: Balance
  6. ----- HyperTalk script -----
  7.  
  8. on DT
  9.   put 0 into dpTot
  10.   put 0 into test
  11.   set lockScreen to true
  12.   go to last card of background "DEPOSIT"
  13.   put field "DP NUM" into cap
  14.   go to first card of background "DEPOSIT"
  15.   repeat until test = cap
  16.     add field "DP AMOUNT" to dpTot
  17.     put field "DP NUM" into test
  18.     go to next card
  19.   end repeat
  20.   go to card "BALANCE"
  21.   set lockScreen to false
  22.   set numberFormat to "$0.00"
  23.   put dpTot into field "dpTot"
  24. end DT
  25. on CT
  26.   put 0 into chTot
  27.   put 0 into test
  28.   set lockScreen to true
  29.   go to last card of background "CHECK"
  30.   put field "CH NUM" into cap
  31.   go to first card of background "CHECK"
  32.   repeat until test = cap
  33.     add field "CH AMOUNT" to chTot
  34.     put field "CH NUM" into test
  35.     go to next card
  36.   end repeat
  37.   go to card "BALANCE"
  38.   set lockScreen to false
  39.   set numberFormat to "0.00"
  40.   put chTot into field "ckTot"
  41. end CT
  42. on ST
  43.   put 0 into scTot
  44.   put 0 into test
  45.   set lockScreen to true
  46.   go to last card of background "SER CHARGE"
  47.   put field "SC NUM" into cap
  48.   go to first card of background "SER CHARGE"
  49.   repeat until test = cap
  50.     add field "SC AMOUNT" to scTot
  51.     put field "SC NUM" into test
  52.     go to next card
  53.   end repeat
  54.   go to card "BALANCE"
  55.   set lockScreen to false
  56.   set numberFormat to "0.00"
  57.   put scTot into field "scTot"
  58. end ST
  59.  
  60.  
  61. -- part 11 (button)
  62. -- low flags: 00
  63. -- high flags: 8003
  64. -- rect: left=158 top=145 right=167 bottom=247
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: BALANCE
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   DT
  76.   CT
  77.   ST
  78.   put field "dpTot" into baTot
  79.   subtract field "ckTot" from baTot
  80.   subtract field "scTot" from baTot
  81.   put baTot into card field "baTot"
  82. end mouseUp
  83.  
  84.  
  85.  
  86. -- part 14 (field)
  87. -- low flags: 01
  88. -- high flags: 0000
  89. -- rect: left=126 top=260 right=279 bottom=204
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 0 / 0
  92. -- text alignment: 65535
  93. -- font id: 16
  94. -- text size: 12
  95. -- style flags: 0
  96. -- line height: 16
  97. -- part name: baTot
  98. ----- HyperTalk script -----
  99. on idle
  100.   set numberFormat to "$0.00"
  101. end idle
  102.  
  103.  
  104. -- part 15 (field)
  105. -- low flags: 01
  106. -- high flags: 2000
  107. -- rect: left=11 top=185 right=278 bottom=127
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 0
  111. -- font id: 16
  112. -- text size: 12
  113. -- style flags: 256
  114. -- line height: 22
  115. -- part name: 
  116.  
  117.  
  118. -- part 16 (button)
  119. -- low flags: 00
  120. -- high flags: 8003
  121. -- rect: left=261 top=145 right=167 bottom=350
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 0 / 0
  124. -- text alignment: 1
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: STATEMENT
  130. ----- HyperTalk script -----
  131. on mouseUp
  132.   put 0.00 into chTot  --set variables to 0
  133.   put 0.00 into ccTot
  134.   put 0.00 into cdTot
  135.   put 0.00 into dtTot
  136.   put 0.00 into csTot
  137.   put 0.00 into seTot
  138.   put 0 into test
  139.   set lockScreen to true
  140.   go to last card of background "CHECK" --do checks
  141.   put field "CH NUM" into cap
  142.   go to first card of background "CHECK"
  143.   repeat until test = cap
  144.     if field "B" is "X"
  145.     then add field "CH AMOUNT" to ccTot
  146.   else add field "CH AMOUNT" to chTot
  147.   put field "CH NUM" into test
  148.   go to next card
  149. end repeat
  150. go to last card of background "DEPOSIT" --do deposits
  151. put field "DP NUM" into cap
  152. put 0 into test
  153. go to first card of background "DEPOSIT"
  154. repeat until test = cap
  155.   if field "B" is "X"
  156.   then add field "DP AMOUNT" to cdTot
  157. else add field "DP AMOUNT" to dtTot
  158. put field "DP NUM" into test
  159. go to next card
  160. end repeat
  161. go to last card of background "SER CHARGE" --do service charge
  162. put field "SC NUM" into cap
  163. put 0 into test
  164. go to first card of background "SER CHARGE"
  165. repeat until test = cap
  166.   if field "B" is "X"
  167.   then add field "SC AMOUNT" to csTot
  168. else add field "SC AMOUNT" to seTot
  169. put field "SC NUM" into test
  170. go to next card
  171. end repeat
  172. go to card "BALANCE"
  173. set lockScreen to false
  174. set numberFormat to "0.00"  --place values in fields
  175. put ccTot into field "ccTot"
  176. put chTot into field "chTot"
  177. put cdTot into field "cdTot"
  178. put dtTot into field "dtTot"
  179. put csTot into field "csTot"
  180. put seTot into field "seTot"
  181. put 0.00 into cbTot  --do balances
  182. put 0.00 into beTot
  183. put cdTot into cbTot
  184. subtract ccTot from cbTot
  185. subtract csTot from cbTot
  186. put cbTot into card field "cbTot"
  187. put dtTot into beTot
  188. subtract chTot from beTot
  189. subtract seTot from beTot
  190. put beTot into card field "beTot"
  191. end mouseUp
  192.  
  193.  
  194.  
  195. -- part 19 (field)
  196. -- low flags: 01
  197. -- high flags: 0000
  198. -- rect: left=214 top=260 right=279 bottom=292
  199. -- title width / last selected line: 0
  200. -- icon id / first selected line: 0 / 0
  201. -- text alignment: 65535
  202. -- font id: 16
  203. -- text size: 12
  204. -- style flags: 0
  205. -- line height: 16
  206. -- part name: cbTot
  207. ----- HyperTalk script -----
  208. on idle
  209.   set numberFormat to "$0.00"
  210. end idle
  211.  
  212.  
  213. -- part 20 (field)
  214. -- low flags: 01
  215. -- high flags: 0000
  216. -- rect: left=301 top=260 right=279 bottom=379
  217. -- title width / last selected line: 0
  218. -- icon id / first selected line: 0 / 0
  219. -- text alignment: 65535
  220. -- font id: 16
  221. -- text size: 12
  222. -- style flags: 0
  223. -- line height: 16
  224. -- part name: beTot
  225. ----- HyperTalk script -----
  226. on idle
  227.   set numberFormat to "$0.00"
  228. end idle
  229.  
  230.  
  231. -- part 21 (button)
  232. -- low flags: 00
  233. -- high flags: 8003
  234. -- rect: left=426 top=268 right=290 bottom=491
  235. -- title width / last selected line: 0
  236. -- icon id / first selected line: 0 / 0
  237. -- text alignment: 1
  238. -- font id: 0
  239. -- text size: 12
  240. -- style flags: 0
  241. -- line height: 16
  242. -- part name: VERIFY
  243. ----- HyperTalk script -----
  244. on mouseUp
  245.   put 0.00 into cVer  --check balances
  246.   put 0.00 into nVer
  247.   put 0.00 into Ver
  248.   put card field "cbTot" into cVer
  249.   put card field "beTot" into nVer
  250.   put cVer into Ver
  251.   add nVer to Ver
  252.   get card field baTot
  253.   if it = Ver
  254.   then VY
  255. else nVY
  256. end mouseUp
  257. on VY
  258.   show card field Verify
  259.   wait 3 seconds
  260.   hide card field Verify
  261. end VY
  262. on nVY
  263.   show card field noVerify
  264.   show button "OK"
  265. end nVY
  266.  
  267.  
  268. -- part 22 (field)
  269. -- low flags: 80
  270. -- high flags: 0004
  271. -- rect: left=114 top=279 right=299 bottom=393
  272. -- title width / last selected line: 0
  273. -- icon id / first selected line: 0 / 0
  274. -- text alignment: 1
  275. -- font id: 16
  276. -- text size: 12
  277. -- style flags: 0
  278. -- line height: 16
  279. -- part name: Verify
  280.  
  281.  
  282. -- part 24 (field)
  283. -- low flags: 80
  284. -- high flags: 0004
  285. -- rect: left=13 top=279 right=302 bottom=412
  286. -- title width / last selected line: 0
  287. -- icon id / first selected line: 0 / 0
  288. -- text alignment: 0
  289. -- font id: 16
  290. -- text size: 12
  291. -- style flags: 0
  292. -- line height: 16
  293. -- part name: noVerify
  294.  
  295.  
  296. -- part 25 (button)
  297. -- low flags: 80
  298. -- high flags: 8003
  299. -- rect: left=356 top=279 right=301 bottom=399
  300. -- title width / last selected line: 0
  301. -- icon id / first selected line: 0 / 0
  302. -- text alignment: 1
  303. -- font id: 0
  304. -- text size: 12
  305. -- style flags: 0
  306. -- line height: 16
  307. -- part name: OK
  308. ----- HyperTalk script -----
  309. on mouseUp
  310.   hide card field "noVerify"
  311.   hide button "OK"
  312. end mouseUp
  313.  
  314.  
  315.  
  316. -- part 26 (button)
  317. -- low flags: 00
  318. -- high flags: 8003
  319. -- rect: left=395 top=217 right=234 bottom=497
  320. -- title width / last selected line: 0
  321. -- icon id / first selected line: 0 / 0
  322. -- text alignment: 1
  323. -- font id: 0
  324. -- text size: 12
  325. -- style flags: 0
  326. -- line height: 16
  327. -- part name: FIND CHECK
  328. ----- HyperTalk script -----
  329. on mouseUp
  330.   ask "Check Number ?" with 1--
  331.   set lockScreen to true
  332.   go to first card of background "CHECK"
  333.   find word it in field "CH Num"
  334.   if the result = "not found"
  335.   then reS
  336. else set lockScreen to false
  337. end mouseUp
  338. on reS
  339.   go to card "Balance"
  340.   set lockScreen to false
  341.   put "No where to be found!" into card field "result"
  342.   show card field "result"
  343.   wait 2 seconds
  344.   hide card field "result"
  345. end reS
  346.  
  347.  
  348. -- part 28 (field)
  349. -- low flags: 81
  350. -- high flags: 0004
  351. -- rect: left=163 top=279 right=297 bottom=336
  352. -- title width / last selected line: 0
  353. -- icon id / first selected line: 0 / 0
  354. -- text alignment: 1
  355. -- font id: 16
  356. -- text size: 12
  357. -- style flags: 256
  358. -- line height: 16
  359. -- part name: result
  360.  
  361.  
  362. -- part 31 (button)
  363. -- low flags: 00
  364. -- high flags: 8003
  365. -- rect: left=394 top=196 right=214 bottom=496
  366. -- title width / last selected line: 0
  367. -- icon id / first selected line: 0 / 0
  368. -- text alignment: 1
  369. -- font id: 0
  370. -- text size: 12
  371. -- style flags: 0
  372. -- line height: 16
  373. -- part name: FIND DEPOSIT
  374. ----- HyperTalk script -----
  375. on mouseUp
  376.   ask "Deposit Number ?" with 1
  377.   set lockScreen to true
  378.   go to first card of background "DEPOSIT"
  379.   find word it in field "DP Num"
  380.   if the result = "not found"
  381.   then reS
  382. else set lockScreen to false
  383. end mouseUp
  384. on reS
  385.   go to card "Balance"
  386.   set lockScreen to false
  387.   put "No where to be found!" into card field "result"
  388.   show card field "result"
  389.   wait 2 seconds
  390.   hide card field "result"
  391. end reS
  392.  
  393.  
  394.  
  395. -- part 32 (button)
  396. -- low flags: 00
  397. -- high flags: 8003
  398. -- rect: left=395 top=237 right=254 bottom=497
  399. -- title width / last selected line: 0
  400. -- icon id / first selected line: 0 / 0
  401. -- text alignment: 1
  402. -- font id: 0
  403. -- text size: 12
  404. -- style flags: 0
  405. -- line height: 16
  406. -- part name: FIND SER CHG
  407. ----- HyperTalk script -----
  408. on mouseUp
  409.   ask "Service Charge Number ?" with 1
  410.   set lockScreen to true
  411.   go to first card of background "SER CHARGE"
  412.   find word it in field "SC Num"
  413.   if the result = "not found"
  414.   then reS
  415. else set lockScreen to false
  416. end mouseUp
  417. on reS
  418.   go to card "Balance"
  419.   set lockScreen to false
  420.   put "No where to be found!" into card field "result"
  421.   show card field "result"
  422.   wait 2 seconds
  423.   hide card field "result"
  424. end reS
  425.  
  426.  
  427. -- part 38 (button)
  428. -- low flags: 00
  429. -- high flags: 8003
  430. -- rect: left=362 top=145 right=167 bottom=451
  431. -- title width / last selected line: 0
  432. -- icon id / first selected line: 0 / 0
  433. -- text alignment: 1
  434. -- font id: 0
  435. -- text size: 12
  436. -- style flags: 0
  437. -- line height: 16
  438. -- part name: HELP?
  439. ----- HyperTalk script -----
  440. on mouseUp
  441.   visual iris open slow
  442.   go to card "TOP"
  443.   show card field "Info"
  444.   show button 4
  445. end mouseUp
  446.  
  447.  
  448.  
  449. -- part 39 (button)
  450. -- low flags: 00
  451. -- high flags: 0000
  452. -- rect: left=464 top=138 right=173 bottom=503
  453. -- title width / last selected line: 0
  454. -- icon id / first selected line: 20098 / 20098
  455. -- text alignment: 1
  456. -- font id: 0
  457. -- text size: 12
  458. -- style flags: 0
  459. -- line height: 16
  460. -- part name: Home
  461. ----- HyperTalk script -----
  462. on mouseUp
  463.   visual effect iris close slow
  464.   go "home"
  465. end mouseUp
  466.  
  467.  
  468.  
  469. -- part 40 (field)
  470. -- low flags: 81
  471. -- high flags: 0000
  472. -- rect: left=44 top=99 right=114 bottom=464
  473. -- title width / last selected line: 0
  474. -- icon id / first selected line: 0 / 0
  475. -- text alignment: 0
  476. -- font id: 16
  477. -- text size: 12
  478. -- style flags: 0
  479. -- line height: 16
  480. -- part name: 
  481.  
  482.  
  483. -- part contents for background part 9
  484. ----- text -----
  485. Thursday, February 11, 1988
  486.  
  487. -- part contents for background part 10
  488. ----- text -----
  489. 10:19 PM
  490.  
  491. -- part contents for background part 16
  492. ----- text -----
  493. Name
  494. Address
  495. City,State,Zip
  496.  
  497.  
  498. -- part contents for background part 17
  499. ----- text -----
  500. Acc No 
  501.  
  502.  
  503. -- part contents for card part 14
  504. ----- text -----
  505. 1488.11
  506.  
  507. -- part contents for background part 18
  508. ----- text -----
  509. 4442.17
  510.  
  511. -- part contents for background part 19
  512. ----- text -----
  513. 2944.06
  514.  
  515. -- part contents for background part 20
  516. ----- text -----
  517. 10.00
  518.  
  519. -- part contents for card part 15
  520. ----- text -----
  521. Deposits Total
  522. Checks Total
  523. Service Charges
  524. Balance
  525.  
  526. -- part contents for background part 26
  527. ----- text -----
  528. 45.55
  529.  
  530. -- part contents for background part 27
  531. ----- text -----
  532. 119.20
  533.  
  534. -- part contents for background part 22
  535. ----- text -----
  536. 1594.38
  537.  
  538. -- part contents for background part 23
  539. ----- text -----
  540. 0.00
  541.  
  542. -- part contents for background part 24
  543. ----- text -----
  544. 10.00
  545.  
  546. -- part contents for background part 25
  547. ----- text -----
  548. 0.00
  549.  
  550. -- part contents for card part 19
  551. ----- text -----
  552. 1538.83
  553.  
  554. -- part contents for card part 20
  555. ----- text -----
  556. -119.20
  557.  
  558. -- part contents for card part 22
  559. ----- text -----
  560. Cleared and non Cleared equal total balance 
  561.  
  562. -- part contents for card part 24
  563. ----- text -----
  564. ERROR! Cleared and non Cleared do not equal total balance
  565.  
  566. -- part contents for card part 28
  567. ----- text -----
  568. No where to be found!
  569.  
  570. -- part contents for card part 40
  571. ----- text -----
  572. This stack produced by Eldon Benz RR2 box318 Carbondale IL 62901